#!/usr/bin/perl

use Modern::Perl;
use XML::Twig;
my $file = "settings.xml";

open(FILE, ">>1.txt");
print FILE "blah1\n";
print FILE "blah2\n";
close(FILE);
#
#die("File doesn't exist!") unless (-e $file);
#
#my $twig = XML::Twig->new;
#
#$twig->parsefile($file);
#
#my $root = $twig->root;
#say $root->first_child_text('user');
#say $root->first_child_text( 'pass' );
#say $root->first_child_text( 'aclass' );
#say $root->first_child_text( 'url' );
#say $root->first_child_text( 'success' );
#say $root->first_child_text( 'interval' );
#say $root->first_child_text( 'debug' );
#say $root->first_child_text( 'debugfile' );
#
#
##print $commit->att('user');
##print ($twig->first_child_text('user'));